object Fclientes: TFclientes
  Left = 201
  Top = 124
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'A & C  -  CADASTRO DE CLIENTES'
  ClientHeight = 406
  ClientWidth = 646
  Color = clMoneyGreen
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'System'
  Font.Style = [fsBold]
  KeyPreview = True
  OldCreateOrder = False
  OnActivate = FormActivate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 16
  object DBGrid1: TDBGrid
    Left = 19
    Top = 68
    Width = 638
    Height = 293
    DataSource = DataSource1
    FixedColor = 10205837
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = 'System'
    TitleFont.Style = [fsBold]
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Codigo'
        Width = 53
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Nome'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Endereco'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cidade'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Uf'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cep'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cnpj'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Cpf'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Ddd'
        Visible = True
      end
      item
        Alignment = taRightJustify
        Expanded = False
        FieldName = 'Tel1'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Email'
        Visible = True
      end
      item
        Color = clWhite
        Expanded = False
        FieldName = 'Honorario'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Salario'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Conta'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'DataCad'
        Title.Alignment = taCenter
        Title.Caption = 'DTCadastro'
        Width = 80
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 246
    Top = 370
    Width = 75
    Height = 25
    Caption = '&Incluir'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 326
    Top = 370
    Width = 75
    Height = 25
    Caption = '&Alterar'
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 406
    Top = 370
    Width = 75
    Height = 25
    Caption = '&Excluir'
    TabOrder = 3
    OnClick = BitBtn3Click
  end
  object BitBtn4: TBitBtn
    Left = 486
    Top = 370
    Width = 75
    Height = 25
    Caption = '&Relat'#243'rio'
    TabOrder = 4
  end
  object BitBtn5: TBitBtn
    Left = 566
    Top = 370
    Width = 75
    Height = 25
    Caption = '&Sair'
    TabOrder = 5
    OnClick = BitBtn5Click
  end
  object MaskEdit1: TMaskEdit
    Left = 16
    Top = 344
    Width = 49
    Height = 24
    TabOrder = 6
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 104
    Top = 360
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'Caixa'
    SQL.Strings = (
      'select * from clientes where codigo = :mcodigo')
    Left = 136
    Top = 360
    ParamData = <
      item
        DataType = ftSmallint
        Name = 'mcodigo'
        ParamType = ptUnknown
        Value = '3'
      end>
    object Query1Nome: TStringField
      FieldName = 'Nome'
      KeyFields = 'Nome'
      Origin = 'CAIXA."clientes.DB".Nome'
      Size = 40
    end
    object Query1Codigo: TFloatField
      FieldName = 'Codigo'
      Origin = 'CAIXA."clientes.DB".Codigo'
    end
    object Query1Endereco: TStringField
      FieldName = 'Endereco'
      Origin = 'CAIXA."clientes.DB".Endereco'
      Size = 30
    end
    object Query1Cidade: TStringField
      FieldName = 'Cidade'
      Origin = 'CAIXA."clientes.DB".Cidade'
      Size = 25
    end
    object Query1Uf: TStringField
      FieldName = 'Uf'
      Origin = 'CAIXA."clientes.DB".Uf'
      Size = 2
    end
    object Query1Cep: TStringField
      FieldName = 'Cep'
      Origin = 'CAIXA."clientes.DB".Cep'
      Size = 8
    end
    object Query1Cpf: TStringField
      FieldName = 'Cpf'
      Origin = 'CAIXA."clientes.DB".Cpf'
      Size = 11
    end
    object Query1Cnpj: TStringField
      FieldName = 'Cnpj'
      Origin = 'CAIXA."clientes.DB".Cnpj'
      Size = 18
    end
    object Query1Ddd: TFloatField
      FieldName = 'Ddd'
      Origin = 'CAIXA."clientes.DB".Ddd'
    end
    object Query1Tel1: TStringField
      FieldName = 'Tel1'
      Origin = 'CAIXA."clientes.DB".Tel1'
      Size = 9
    end
    object Query1Email: TStringField
      FieldName = 'Email'
      Origin = 'CAIXA."clientes.DB".Email'
      Size = 40
    end
    object Query1Honorario: TFloatField
      FieldName = 'Honorario'
      Origin = 'CAIXA."clientes.DB".Honorario'
    end
    object Query1Salario: TFloatField
      FieldName = 'Salario'
      Origin = 'CAIXA."clientes.DB".Salario'
    end
    object Query1Conta: TStringField
      FieldName = 'Conta'
      Origin = 'CAIXA."clientes.DB".Conta'
      Size = 6
    end
    object Query1DataCad: TDateField
      FieldName = 'DataCad'
      Origin = 'CAIXA."clientes.DB".DataCad'
    end
  end
end
